gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\include\conndb.asp

    <%
  Option Explicit	'要求变量声明，这样所有包含此文件的都需要声明变量

  dim conn		  '数据库连接
  dim connstr		'连接字符串
  dim db			  '数据库文件路径

  db = "../Database/trfhandset.mdb"	'演示时用ACCESS数据库
  connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
  '连接 SQL Server时使用下面的连接字符串
  'connstr = "Provider=SQLOLEDB; User ID=sa; Password=sa; Initial Catalog=trfhandset; Data Source=localhost"
  Set conn  =  Server.CreateObject("ADODB.Connection")
  if err Then
	  err.clear
  end if

  conn.Open connstr

  '关闭数据库连接，在每页中调用此函数，将连接放入连接池
  sub CloseConn()
	  conn.Close()
	  Set conn  =  Nothing
  end sub

  '替换单引号，向数据库中写入数据时用
  function RealString(strSrc)
	  RealString  =  Replace(Trim(strSrc), "'", "’")
  end function

  '替换单引号并进行HTML编码，向网页输出数据库内容时用
  function Convert(strSrc)
	  Convert  =  Server.HTMLEncode(Replace(Trim(strSrc), "'", "’"))
	  '此句用于将字符串中的回车符转换为HTML中的换行标记
	  Convert  =  Replace(Convert, chr(13), "<br>")
  end function

%>